www.gusucode.com > 云枫工作室企业网站源码 1 > 云枫工作室企业网站源码 1.0/云枫工作室企业网站源码(asp无限制版)1.0/web/admin/Manage_admin.asp
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<%
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('你无权修改管理员！');history.go(-1);</script>"
response.End
end if
%>
<%
dim check
check=request.QueryString("check")
%>
<html>
<link href="css.css" rel="stylesheet" type="text/css">
<body>
<!--#include file="top.htm" -->
<br>
<%if check="manage" then%><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" align="center" background="img/menu_manage.gif"><font color="#FFFFFF"><b>后 台 用 户 管 理</b></font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#EEEEEE">
<tr align="center" bgcolor="#FFFFFF" height="20">
<td width="20%" height="25">用 户 名</td>
<td width="20%" height="25">密 码</td>
<td width="45%" height="25">管理权限</td>
<td width="15%" height="25">操 作</td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from Manage_admin order by rank",conn,1,1
do while not rs.EOF%>
<form name="form1" method="post" action="Manage_adminsave.asp?action=edit&id=<%=int(rs("id"))%>">
<tr align="center" bgcolor="#FFFFFF" height="20">
<td width="20%" height="25"><input name="admin" type="text" size="15" value="<%=trim(rs("admin"))%>"></td>
<td width="20%" height="25"><input name="UserPassword" type="text" size="15"></td>
<td width="45%" height="25">
<%select case rs("rank")
case "1"
response.Write "<input type=radio name=rank value=1 checked onFocus='this.blur()'>超级管理员 <input name=rank type=radio value=2 onFocus='this.blur()'>管理员 <input type=radio name=rank value=3 onFocus='this.blur()'>编辑员"
case "2"
response.Write "<input type=radio name=rank value=1 onFocus='this.blur()'>超级管理员 <input name=rank type=radio value=2 checked onFocus='this.blur()'>管理员 <input type=radio name=rank value=3 onFocus='this.blur()'>编辑员"
case "3"
response.Write "<input type=radio name=rank value=1 onFocus='this.blur()'>超级管理员 <input name=rank type=radio value=2 onFocus='this.blur()'>管理员 <input type=radio name=rank value=3 checked onFocus='this.blur()'>编辑员"
end select%> </td>
<td width="15%" height="25"><input type="submit" name="Submit" value=" 修 改 " onFocus='this.blur()'>
<%if rs("admin")=session("admin") then%>
<a href="JavaScript:alert('[ 系统提示 ]\n\n您无法删除自己！')"><font color=red>删除</font></a><%else%><a href="Manage_admin.asp?id=<%=int(rs("id"))%>&action=del" onClick="return confirm('您确定要删除此用户吗？\n\n注：删除记录数据将无法逆回！')"><font color=red>删除</font></a><%end if%> </td>
</tr>
</form>
<%rs.movenext
loop
rs.close
set rs=nothing
set conn=nothing
%>
</table><br></td>
</tr>
</table>
<%end if%>
<%if check="add" then%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" align="center" background="img/menu_manage.gif"><font color="#FFFFFF"><b>后 台 用 户 添 加</b></font></td>
</tr>
<tr>
<td height="80" bgcolor="#FFFFFF">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#EEEEEE">
<tr align="center" bgcolor="#FFFFFF" height="20">
<td width="20%" height="25">用 户 名</td>
<td width="20%" height="25">密 码</td>
<td width="45%" height="25">管理权限</td>
<td width="15%" height="25">操 作</td>
</tr>
<form name="form1" method="post" action="Manage_adminsave.asp?action=add">
<tr align="center" bgcolor="#FFFFFF">
<td width="20%" height="25"><input name="admin2" type="text" size="15"></td>
<td width="20%" height="25"><input name="UserPassword2" type="text" size="15"></td>
<td width="45%" height="25"><input name="rank2" type="radio" value="1" checked onFocus="this.blur()">
超级管理员
<input name="rank2" type="radio" value="2" onFocus="this.blur()">
管理员
<input type="radio" name="rank2" value="3" onFocus="this.blur()">
编辑员 </td>
<td width="15%" height="25"><input type="submit" name="Submit2" value=" 添 加 " onFocus="this.blur()"></td>
</tr>
</form>
</table></td>
</tr>
</table>
<%end if%>
<br>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" align="center" background="img/menu_manage.gif"><font color="#FFFFFF"><b>操 作 注 意 事 项 及 说 明</b></font></td>
</tr>
<tr>
<td height="38" bgcolor="#FFFFFF">
<table width="80%" height="150" border="0" align="center" cellpadding="5" cellspacing="0" class="text">
<tr>
<td align="left" valign="middle"><font color="#006699">
· 编辑员只能添加、修改、删除产品与新闻资料。<br>
· 管理员不可设置网站属性，其它方可管理<br>
· 超级管理员拥有本站所有管理权限。<br>
· 登录密码采用MD5不可逆转方式加密，如不修改密码，请留空。 </font></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>